home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2007 December / PCWKCD1207B.iso / Windows marzen / Macro ToolsWorks 6.31 / tworks.exe / Samples / Generate file name containing current date.mcr < prev    next >
Encoding:
Text File  |  2003-06-11  |  501 b   |  11 lines
  1. <#> This example shows how to generate a file name containing
  2. <#> current date:
  3. <cmds>
  4. <form_item>("f1","Original file name:","EDIT","MyFileName","vOriginalFileName")
  5. <form_item>("f1","File extension:","EDIT",".txt","vFileExtension")
  6. <form_show>("f1","File Name","shell32.dll",0,0,0)
  7. <if_str>("_vCanceled == 1") <exitmacro> <endif>
  8.  
  9. <varset>("vNewFileName=%vOriginalFileName%-%_vCurrDate_Year%-%_vCurrDate_MM%-%_vCurrDate_DD%%vFileExtension%","")
  10.  
  11. <msg>(-100,-100,"vNewFileName","Message",1)